Public Class frmStartup

    Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        If fldrBookmarks.ShowDialog() = Windows.Forms.DialogResult.OK Then
            txtLocation.Text = fldrBookmarks.SelectedPath
        End If
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        If txtLocation.Text = Nothing Then
            My.Settings.BookmarkPath = Environment.GetEnvironmentVariable("HOMEDRIVE") & Environment.GetEnvironmentVariable("HOMEPATH") & "\Favorites"
        Else : My.Settings.BookmarkPath = txtLocation.Text
        End If
        My.Settings.FirstRun = False
        Me.Close()
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        End
    End Sub

End Class